home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / ANKH.DSK / NAZI BUSTER.bas < prev    next >
BASIC Source File  |  2014-09-09  |  668b  |  26 lines
  1. 0  PRINT "<CTRL-D>BLOAD SOUND.READER": PRINT "<CTRL-D>BLOAD SOUNDS"
  2. 1  HOME 
  3. 5  GR 
  4. 6  COLOR= 5
  5. 8  POKE 49234,0
  6. 10  HLIN 20,30 AT 10
  7. 20  VLIN 10,30 AT 20
  8. 30  HLIN 10,20 AT 30
  9. 40  VLIN 10,20 AT 10
  10. 50  HLIN 10,30 AT 20
  11. 60  VLIN 20,30 AT 30
  12. 65  COLOR= 15
  13. 66  FOR X = 1 TO 750: NEXT 
  14. 70  FOR X = 1 TO 40
  15. 80  CALL 768,9,2,1,4
  16. 90  PLOT  INT( RND(1) *25) +10, INT( RND(1) *25) +10
  17. 100  NEXT 
  18. 105  GOTO 200
  19. 110  CALL 768,8,2,1,8: FOR N = 1 TO 9: CALL 768,10,N,1,1: POKE  -16299,0: CALL 768,10,N,1,1: POKE  -16300,0: CALL 768,10,N,1,1: NEXT : RETURN 
  20. 199  END 
  21. 200  FOR X = 1 TO 3
  22. 210  GOSUB 110
  23. 220  NEXT 
  24. 230  CALL 768,11,5,1,15
  25. 235  FOR X = 1 TO 750: NEXT 
  26. 240  TEXT : HOME